www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\admin_upfilemanage.asp
<!--#include file="../Include/CheckLogin.asp"--> <% '函数名:IsObjInstalled '作 用:检查组件是否已经安装 '参 数:strClassString ----组件名 '返回值:True ----已经安装 ' False ----没有安装 Function IsObjInstalled(strClassString) On Error Resume Next IsObjInstalled = False Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(strClassString) If 0 = Err Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 End Function UploadDir="../Upload/UpLoadImg/" Const MaxPerPage=20 dim strFileName dim totalPut,CurrentPage,TotalPages dim UploadDir,TruePath,fso,theFolder,theFile,whichfile,thisfile,FileCount,TotleSize strFileName="Admin_UpFileManage.asp" if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if TruePath=Server.MapPath(UploadDir) If not IsObjInstalled("Scripting.FileSystemObject") Then Response.Write "<b><font color=red>你的服务器不支持 FSO(Scripting.FileSystemObject)! 不能使用本功能</font></b>" Else set fso=CreateObject("Scripting.FileSystemObject") if request("Action")="Del" then whichfile=server.mappath(Request("FileName")) Set thisfile = fso.GetFile(whichfile) thisfile.Delete True end if %> <script language="JavaScript"> function ConfirmDel() { if (confirm("你真的要删除此文件吗!")) return true; else return false; } </script> <link href="images/Admin.css" rel="stylesheet" type="text/css"> <table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td align="center" valign="top"><strong>上 传 文 件 管 理<br> </strong> <% if fso.FolderExists(TruePath)then FileCount=0 TotleSize=0 Set theFolder=fso.GetFolder(TruePath) For Each theFile In theFolder.Files FileCount=FileCount+1 TotleSize=TotleSize+theFile.Size next totalPut=FileCount if currentpage<1 then currentpage=1 end if if (currentpage-1)*MaxPerPage>totalput then if (totalPut mod MaxPerPage)=0 then currentpage= totalPut \ MaxPerPage else currentpage= totalPut \ MaxPerPage + 1 end if end if if currentPage=1 then 'showpage2 strFileName,totalput,MaxPerPage showContent showpage2 strFileName,totalput,MaxPerPage 'response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K</div>" else if (currentPage-1)*MaxPerPage<totalPut then 'showpage2 strFileName,totalput,MaxPerPage showContent showpage2 strFileName,totalput,MaxPerPage 'response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K</div>" else currentPage=1 'showpage2 strFileName,totalput,MaxPerPage showContent showpage2 strFileName,totalput,MaxPerPage 'response.write "<br><div align='center'>本页共显示 <b>" & FileCount & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K</div>" end if end if else response.write "找不到文件夹!可能是配置有误!" end if end if sub showContent() dim c FileCount=0 TotleSize=0 %> <table width="99%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="border"> <tr bgcolor="#EAEAEA"> <td width="172" height="25" align="center">文件名</td> <td width="101" height="20" align="center">文件大小</td> <td width="105" height="20" align="center">文件类型</td> <td width="120" height="20" align="center">最后修改时间</td> <td width="46" height="20" align="center">操作</td> </tr> <% For Each theFile In theFolder.Files c=c+1 if FileCount>=MaxPerPage then exit for elseif c>MaxPerPage*(CurrentPage-1) then %> <tr bgcolor="#FFFFFF" class="tdbg"> <td height="22"> <a href="<%=(UploadDir & theFile.Name)%>" target="_blank"><strong><%=theFile.Name%></strong></a></td> <td width="101" align="right"><%=theFile.size%>字节</td> <td width="105" align="center"><%=theFile.type%></td> <td width="120" align="center"><%=theFile.DateLastModified%></td> <td width="46" align="center"><a href="Admin_UpFileManage.asp?Action=Del&FileName=<%=UploadDir&theFile.Name%>" onclick="return ConfirmDel()">删除</a></td> </tr> <% FileCount=FileCount+1 TotleSize=TotleSize+theFile.Size end if Next %> </table> <% end sub %> </td> </tr> </table> <% sub showpage2(sfilename,totalnumber,maxperpage) dim n, i,strTemp if totalnumber mod maxperpage=0 then n= totalnumber \ maxperpage else n= totalnumber \ maxperpage+1 end if strTemp= "<table align='center'><form name='showpages' method='Post' action='" & sfilename & "'><tr><td>" strTemp=strTemp & "共 <b>" & totalnumber & "</b> 个文件,占用 <b>" & TotleSize\1024 & "</b> K " sfilename=JoinChar(sfilename) if CurrentPage<2 then strTemp=strTemp & "首页 上一页 " else strTemp=strTemp & "<a href='" & sfilename & "page=1'>首页</a> " strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage-1) & "'>上一页</a> " end if if n-currentpage<1 then strTemp=strTemp & "下一页 尾页" else strTemp=strTemp & "<a href='" & sfilename & "page=" & (CurrentPage+1) & "'>下一页</a> " strTemp=strTemp & "<a href='" & sfilename & "page=" & n & "'>尾页</a>" end if strTemp=strTemp & " 页次:<strong><font color=red>" & CurrentPage & "</font>/" & n & "</strong>页 " strTemp=strTemp & " <b>" & maxperpage & "</b>" & "个文件/页" strTemp=strTemp & " 转到:<select name='page' size='1' onchange='javascript:submit()'>" for i = 1 to n strTemp=strTemp & "<option value='" & i & "'" if cint(CurrentPage)=cint(i) then strTemp=strTemp & " selected " strTemp=strTemp & ">第" & i & "页</option>" next strTemp=strTemp & "</select>" strTemp=strTemp & "</td></tr></form></table>" response.write strTemp end sub '函数名:JoinChar '作 用:向地址中加入 ? 或 & '参 数:strUrl ----网址 '返回值:加了 ? 或 & 的网址 function JoinChar(strUrl) if strUrl="" then JoinChar="" exit function end if if InStr(strUrl,"?")<len(strUrl) then if InStr(strUrl,"?")>1 then if InStr(strUrl,"&")<len(strUrl) then JoinChar=strUrl & "&" else JoinChar=strUrl end if else JoinChar=strUrl & "?" end if else JoinChar=strUrl end if end function %>